home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / flow.src < prev    next >
Text File  |  1991-02-21  |  542b  |  36 lines
  1. %%HP: T(1)A(D)F(.);
  2. @ FLOW, isentropic gas flow equation solver
  3. @ by Denis Hayner
  4. DIR
  5.   W
  6. 1.14226035712E-3
  7.   T0 1460
  8.   T 466.416666667
  9.   P0 100
  10.   P 5.28281787717
  11.   MN
  12. 4.74775881895E-4
  13.   V 1159.19848414
  14.   G 32.174
  15.   K 1.4
  16.   R 53.3
  17.   FLOW 'W=â(G*K/R)*
  18. P0/âT0*MN/(1+(K-1)/
  19. 2*MN^2)^((K+1)/(2*(
  20. K-1)))'
  21.   TEMP 'T=T0/(1+(K-
  22. 1)/2*MN^2)'
  23.   PRES 'P=P0/(1+(K-
  24. 1)/2*MN^2)^(K/(K-1)
  25. )'
  26.   VEL 'V=â(G*K*R*T0
  27. )*MN'
  28.   F.EQ { FLOW VEL
  29. PRES TEMP }
  30.   EQ TEMP
  31.   PPAR {
  32. (-6.5,-11.216753359)
  33. (6.5,75) MN 0 (0,0)
  34. FUNCTION Y }
  35. END
  36.